drop proc dbo.Reporte105
go

CREATE PROCEDURE dbo.Reporte105
(
  @cabezero Varchar(8000),
  @Resul    Varchar(8000)  OutPut,
  @DataSet  nText,
  @Validar  Int
)

AS
BEGIN
  Set NoCount On
   --------------------------
  --Reporte Entradas de productos
  --------------------------

  --Variables de Trabajo
  Declare @Registro  Int
  Declare @Valor1    VarChar(8000)
  Declare @Valor2    VarChar(8000)
  Declare @Valor3    VarChar(8000)
  Declare @Desc1     VarChar(8000)
  Declare @Sql       Varchar(8000)
  --Asignar Valores
  Select @Desc1  = ""
  Select @Resul  = ""

  --Obtener los Parametros
  Exec Emulador_SepararCadena 'V1', @Cabezero, '|', @Valor1 Output --N
  Exec Emulador_SepararCadena 'V2', @Cabezero, '|', @Valor2 Output --C
  Exec Emulador_SepararCadena 'V3', @Cabezero, '|', @Valor3 Output --C


--Select * FRom PVF..Cat_Productos
  Select Cod = LTrim(RTrim(IsNull(c.Codigo,''))),                 --Select * From PVF..Entradas
                       Descr = LTrim(RTrim(IsNull(c.Descripcion,''))),   --Select * From PVF..entrada_detalles              
                       Marca = LTrim(RTrim(IsNull(d.Descripcion,''))),
                       Unidad = LTrim(RTrim(IsNull(e.Descripcion,0))),
                       Cantidad = LTrim(RTrim(IsNull(b.Cantidad,0))),
                       Factura = '('  +   LTrim(RTrim(IsNull(a.FolioFactura,0)))  +  ')' +  LTrim(RTrim(IsNull(f.Nombre,''))) ,
                       Fecha = IsNull(Convert(Varchar,a.Fecha,103),'') 
                From PVF..Entradas a (NoLock) 
                Left Join PVF..Entrada_Detalles b (NoLock) On b.IdEntrada = a.IdEntrada 
                Left Join PVF..Cat_Productos c (NoLock) On c.IdProducto = b.IdProducto 
                Left Join PVF..Cat_Marcas d (NoLock) On d.IdMarca = c.IdMarca 
                Left Join PVF..Cat_Unidades e (NoLock) On e.IdUnidad = c.IdUnidad
                Left Join PVF..Cat_Proveedores f (NoLock) On f.IdProveedor = b.IdProveedor 
                Where a.Fecha Between @Valor2 And @Valor3



	 Select @Registro = @@RowCount
  

	-- Enviar Resultado
  If @Registro = 0
   Begin
      If @Validar = 0
         Select @Resul = '2R=ERROR|2M=No hay datos en el reporte|'
      If @Validar = 1
         Select @Resul = '2R=ERROR|2M=No hay datos en el reporte|'
   End
  Else
    Begin
	  If @Validar = 0
	     Select @Resul='2R=OK|'
	 If @Validar = 1 
		Select @Resul='2R=OK|'
    End

  Set NoCount OFF
END



